﻿Public Class ucManufacturer
    Public Function ucValidateManufacturer() As Boolean
        If txtManuName.Text = "" Or txtContactAdd.Text = "" Or txtContactPhone.Text = "" Or txtContactEmail.Text = "" Then
            MsgBox("Fields can't be blanks!!")
            txtManuName.Focus()
            Return False
        End If
        If txtContactEmail.Text Like "*@[A-Z,a-z,0-9]*.*" Then
            MsgBox("Regular!!")
            Return True
        Else
            MsgBox("Don't Regular!!")
            txtContactEmail.Text = ""
            txtContactEmail.Focus()
            Return False
        End If
        If txtContactPhone.Text Like "[0-9]" Then
            MsgBox("Regular!!")
            Return True
        Else
            MsgBox("Don't Regular!!")
            txtContactPhone.Text = ""
            txtContactPhone.Focus()
            Return False
        End If
        Return True
    End Function
End Class
